

; LEMUEL

  -10 TO T
  2 TO RANDOM

DIRN

  2*RANDOM TO R
  1 - R TO R
  225 * R TO B
  IF Y<50 225 TO B
  IF Y>206 -225 TO B
  2*RANDOM TO R
  1-R TO R
  225*R TO A
  IF X<50 225 TO A
  IF X>206 -225 TO A
  IF A=225 B/5+90 TO AIM
  IF A=-225 0-B/5+270 TO AIM

AHEAD

  4*RANDOM TO K
  2-K+AIM TO RADAR
  IF RADAR<0 GOTO PAUSE
  IF RADAR<60 GOTO STOP
  RADAR-10*A/160 TO C
  RADAR-10*B/160 TO D

MOVE

  C TO SPEEDX
  D TO SPEEDY
  GOTO AHEAD

PAUSE

  0 TO SPEEDX TO SPEEDY
  -20 TO RADAR TO SHOT

SHOOT

  AIM TO RADAR
  IF RADAR>0 GOTO AHEAD
  0-RADAR TO SHOT
  GOTO SHOOT

STOP

  0 TO SPEEDX TO SPEEDY TO S TO Q
  DAMAGE TO I
  GOSUB MIDSCAN
  AIM+55 TO AIM

BEAM

  AIM TO RADAR
  IF RADAR>0 GOTO SCAN
  0-RADAR TO SHOT
  IF DAMAGE<I GOTO RUN
  GOTO BEAM

SCAN

  IF S=11 GOTO CHECK
  IF DAMAGE<I GOTO RUN
  AIM+T TO AIM
  S+1 TO S
  GOTO BEAM

RUN

  0-A TO SPEEDX
  0-B TO SPEEDY
  GOTO DIRN

CHECK

  IF Q=1 GOTO RUN
  0 TO S
  1 TO Q
  AIM+115 TO AIM
  GOTO BEAM

MIDSCAN

  AIM+180 TO AIM

FIRE

  AIM TO RADAR
  IF RADAR>0 GOTO EXIT
  0-RADAR TO SHOT
  IF DAMAGE<I GOTO RUN
  GOTO FIRE

EXIT
  
  ENDSUB
